home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / T-Z / XrefTextPack.cpt / XrefText_M / card_4144.txt < prev    next >
Text File  |  1989-02-26  |  5KB  |  229 lines
  1. -- card: 4144 from stack: in
  2. -- bmap block id: 7703
  3. -- flags: 4000
  4. -- background id: 2583
  5. -- name: TheIndex
  6. ----- HyperTalk script -----
  7. on openCard
  8.   set lockText of card field "finder" to true
  9. end openCard
  10.  
  11.  
  12.  
  13.  
  14. -- part 1 (field)
  15. -- low flags: 01
  16. -- high flags: 2007
  17. -- rect: left=269 top=97 right=313 bottom=457
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 0
  21. -- font id: 2
  22. -- text size: 9
  23. -- style flags: 0
  24. -- line height: 12
  25. -- part name: finder
  26. ----- HyperTalk script -----
  27. on mouseUp
  28.   if the selection is empty then
  29.     set lockText of the target to false
  30.     put item 1 of the rect of card field finder into leftend
  31.     put item 3 of the rect of card field finder into rightend
  32.     put item 2 of the clickloc into vert
  33.     click at leftend+2,vert
  34.     click at rightend-25,vert with shiftkey
  35.     -- repeat two times
  36.     --   click at the clickLoc
  37.     --  end repeat
  38.     put the selection into holder
  39.     push card
  40.     visual effect wipe right to black
  41.     visual effect wipe left
  42.     find holder in field keywords -- This line is the link
  43.     if the result is not empty then
  44.       answer "No match for keyword " "e& holder"e
  45.       pop card
  46.     end if
  47.     click at 0,0 --disable selection
  48.     set lockText of the target to true
  49.   end if
  50. end mouseUp
  51.  
  52.  
  53.  
  54. -- part 5 (button)
  55. -- low flags: 00
  56. -- high flags: 0000
  57. -- rect: left=382 top=54 right=75 bottom=457
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: Re-Index
  66. ----- HyperTalk script -----
  67. on mouseUp
  68.   set cursor to 4
  69.   set loc of message to 10,170
  70.   play harpsichord c
  71.   put "Sorting Reference Cards . . . Please Wait" into message
  72.   put empty into card field finder
  73.   set the cursor to 4
  74.   sort by field keywords
  75.   get the number of cards
  76.   put it into x
  77.   put 0 into y
  78.   subtract 1 from x
  79.   play harpsichord e
  80.   flash 1
  81.   put "Getting Keywords . . . Please Wait" into message
  82.   set lockscreen to true
  83.   repeat x
  84.     add 1 to y
  85.     go next
  86.     get field keywords
  87.     put it into line y of card field finder of card 1
  88.   end repeat
  89.   go card 1
  90.   set lockscreen to false
  91.   play harpsichord g
  92.   flash 1
  93.   put "Compacting Stack . . . Please Wait" into message
  94.   doMenu "Compact Stack"
  95.   play harpsichord c5 g4 e c
  96.   flash 1
  97.   put "Done" into message
  98.   wait 2 seconds
  99.   hide message
  100.   set the loc of msg to 10,-100
  101. end mouseUp
  102.  
  103.  
  104.  
  105.  
  106. -- part 18 (button)
  107. -- low flags: 80
  108. -- high flags: A000
  109. -- rect: left=172 top=92 right=140 bottom=266
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 24209 / 24209
  112. -- text alignment: 1
  113. -- font id: 0
  114. -- text size: 12
  115. -- style flags: 0
  116. -- line height: 16
  117. -- part name: XTButton
  118. ----- HyperTalk script -----
  119. on mouseUp
  120.   get the short name of target
  121.   visual effect iris close to black
  122.   visual effect iris open to white
  123.   visual effect dissolve
  124.   go to stack it
  125. end mouseUp
  126.  
  127.  
  128.  
  129.  
  130. -- part 27 (button)
  131. -- low flags: 00
  132. -- high flags: 0000
  133. -- rect: left=269 top=54 right=75 bottom=379
  134. -- title width / last selected line: 0
  135. -- icon id / first selected line: 0 / 0
  136. -- text alignment: 1
  137. -- font id: 0
  138. -- text size: 12
  139. -- style flags: 0
  140. -- line height: 16
  141. -- part name: New Key
  142. ----- HyperTalk script -----
  143. on mouseUp
  144.   ask "Enter New Keyword:"
  145.   if it is not empty then
  146.     put it into keyname
  147.     doMenu New Card
  148.     set the name of this card to keyname
  149.     put keyname into field keywords
  150.     get the number of lines in card field finder of card theIndex
  151.     put keyname into line it+1 of card field finder of card theIndex
  152.   end if
  153. end mouseUp
  154.  
  155.  
  156.  
  157. -- part 28 (button)
  158. -- low flags: 00
  159. -- high flags: 0000
  160. -- rect: left=9 top=315 right=342 bottom=30
  161. -- title width / last selected line: 0
  162. -- icon id / first selected line: 0 / 0
  163. -- text alignment: 1
  164. -- font id: 0
  165. -- text size: 12
  166. -- style flags: 0
  167. -- line height: 16
  168. -- part name: Xref on Home
  169. ----- HyperTalk script -----
  170. on mouseUp
  171.   play harpsichord c6
  172.   set the cursor to 4
  173.   put "Putting button into home stack...Please wait" into message
  174.   get the short name of this stack
  175.   put it into nameholder
  176.   show card button "XTButton"
  177.   choose button tool
  178.   click at the loc of button "XTButton"
  179.   doMenu "Copy Button"
  180.   go home
  181.   doMenu "Paste Button"
  182.   set the name of button "XTButton" to nameholder
  183.   go back
  184.   hide button XTButton
  185.   play harpsichord c5
  186.   put "Done." into message
  187.   wait 30 ticks
  188.   hide message
  189.   choose browse tool
  190. end mouseUp
  191.  
  192.  
  193.  
  194.  
  195. -- part contents for background part 1
  196. ----- text -----
  197.  
  198.  
  199.  
  200.  
  201.  
  202.  
  203.  
  204.  
  205.  
  206.  
  207.  
  208.  
  209.  
  210.  
  211.  
  212. -- part contents for background part 41
  213. ----- text -----
  214. What links to Patrick?
  215.  
  216. -- part contents for card part 1
  217. ----- text -----
  218.  
  219. applications
  220. AwayFromHome
  221. Frank Patrick
  222. HyperCard
  223. HyperText
  224. modifications
  225. paint
  226. Ristau
  227. shareware
  228. XrefText
  229. XrefText/M